unit GroupBySize_Defines;

interface

uses
 Classes;

type
 TObjProcFlag = procedure (Flag: Boolean) of object;

const
 ssSettings = 'Settings';
 sWorkBegin = 'WorkBegin';
 sWokrEnd = 'WorkEnd';
 sSizes = 'Sizes';
 sReverse = 'Reverse';
 sTimeOver = 'TimeOver';
 cTmNothing = 0;
 cTmStopG = 1;
 cTmStopAll = 2;
 cTmStopGStartO = 3;
 cTmStopNStart = 4;
 sSizeTime = 'SizeTime';
 sGroupLimit = 'GroupLimit';
 sRestartTime = 'RestartTime';
 sLowestLimit = 'LowestLimit';
 cSizeInc = 1000;

var
 DLInfo: TStrings = nil;
 Groups: TStrings = nil;
 CurrGroup: TStrings = nil;
 Working: Integer = -1;
 IDSize: String = '';
 IDSizes: String = '';
 TimerCount: Integer = -1;
 TimerRestart: Integer = -1;

implementation

end.
